home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
676-700
/
694
/
kan
/
shiftkan
< prev
Wrap
AmigaDOS Script File
|
1995-03-18
|
940b
|
45 lines
.key drive
.bra [
.ket ]
if exists "[drive]KAN7"
rename "[drive]KAN7" "[drive]KANx"
endif
if exists "[drive]KAN6"
if not exists "[drive]KANx"
rename "[drive]KAN6" "[drive]KANx"
else
rename "[drive]KAN6" "[drive]KAN7"
endif
endif
if exists "[drive]KAN5"
if not exists "[drive]KANx"
rename "[drive]KAN5" "[drive]KANx"
else
rename "[drive]KAN5" "[drive]KAN6"
endif
endif
if exists "[drive]KAN4"
if not exists "[drive]KANx"
rename "[drive]KAN4" "[drive]KANx"
else
rename "[drive]KAN4" "[drive]KAN5"
endif
endif
if exists "[drive]KAN3"
if not exists "[drive]KANx"
rename "[drive]KAN3" "[drive]KANx"
else
rename "[drive]KAN3" "[drive]KAN4"
endif
endif
if exists "[drive]KAN2"
if not exists "[drive]KANx"
rename "[drive]KAN2" "[drive]KANx"
else
rename "[drive]KAN2" "[drive]KAN3"
endif
rename "[drive]KAN" "[drive]KAN2"
rename "[drive]KANx" "[drive]KAN"
endif